home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1995 October / Amiga-CD 1995 #10.iso / amiga-magazin / sfx / install-sfx < prev    next >
Text File  |  1995-07-17  |  8KB  |  255 lines
  1. ; Install-SFX Start -----------------------------------------------------------------------------------------
  2. ;
  3. ; $VER: Install-SFX (17.07.1995)
  4. ;
  5. ; SoundFX 3.20 Installscript
  6. ; (C) Copyright 1993-1995 Stefan Kost. All Rights Reserved.
  7. ;
  8. ; -----------------------------------------------------------------------------------------------------------
  9.  
  10. ; setze sprachenabhängige Texte -----------------------------------------------------------------------------
  11.  
  12. (IF (= @LANGUAGE "english")
  13. (
  14.     (SET #bad-kick            "SoundFX3.2 requires at least Kickstart 2.04 !")
  15.     (SET #welcome-messy     "\n\nWelcome to the installation of SoundFX3.2 !")
  16.     (SET #choose-dest        "Please choose a destination directory !\nA drawer called SFX will be automatically generated !")
  17.     (SET #choose-dest-help    "Here you can choose the place on your HD, were SFX should be installed")
  18.     (SET #dest-require        "\n\nPlease be shure, that you have on your HD at least 1.0 Mb free !")
  19.     (SET #copy-fonts        "copying Fonts ...")
  20.     (SET #copy-libs            "copying Librarys ...")
  21.     (SET #copy-keyfile        "copying Keyfile ...")
  22.     (SET #copy-synths        "copying Synths ...")
  23.     (SET #copy-eqshapes        "copying EQ-Shapes ...")
  24.     (SET #copy-envelopes    "copying Envelopes ...")
  25.     (SET #copy-rexxscripts    "copying ARexx-Scripts ...")
  26.     (SET #copy-guides        "copying Guides ...")
  27.     (SET #copy-executable    "copying Executable ...")
  28.     (SET #copy-help            "The respective files will copied to your HD.")
  29.     (SET #choose-lang        "Please choose your prefered language for the documentation !")
  30.     (SET #choose-lang-help    "The documentation and OnLine-Help are existing in different languages - choose the one you understand best")
  31.     (SET #choose-pver        "Please choose the programversion to be installed !")
  32.     (SET #choose-pver-help    "This depends on your computerhardware (processor/mathcopro.) !")
  33.     (SET #exit-messy        "\n\nSFX could successfuly installed.\nPlease read the guide, to learn how to work with the program.\n")
  34. ))
  35. (IF (= @LANGUAGE "deutsch")
  36. (
  37.     (SET #bad-kick            "SoundFX3.2 benötigt mindestens Kickstart 2.04 !")
  38.     (SET #welcome-messy        "\n\nWillkommen zur Installation von SoundFX3.2 !")
  39.     (SET #choose-dest        "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
  40.     (SET #choose-dest-help    "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
  41.     (SET #dest-require        "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 1.0 Mb-Speicher frei ist !")
  42.     (SET #copy-fonts        "kopiere Fonts ...")
  43.     (SET #copy-libs            "kopiere Librarys ...")
  44.     (SET #copy-keyfile        "kopiere Keyfile ...")
  45.     (SET #copy-synths        "kopiere Synths ...")
  46.     (SET #copy-eqshapes        "kopiere EQ-Shapes ...")
  47.     (SET #copy-envelopes    "kopiere Envelopes ...")
  48.     (SET #copy-rexxscripts    "kopiere ARexx-Scripts ...")
  49.     (SET #copy-guides        "kopiere Guides ...")
  50.     (SET #copy-executable    "kopiere Executable ...")
  51.     (SET #copy-help            "Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
  52.     (SET #choose-lang        "Bitte wählen Sie Ihre bevorzugte Sprache für die Dokumentation aus !")
  53.     (SET #choose-lang-help    "Die Dokumentation und OnLine-Hilfe existiert in mehreren Sprachen - wählen Sie die Sprache aus, die Sie am besten verstehen")
  54.     (SET #choose-pver        "Bitte wählen Sie die zu installierende Programmversion aus !")
  55.     (SET #choose-pver-help    "Die Version ist von Ihrer verwendeten Computerhardware (Prozessor/MatheCo.) abhängig !")
  56.     (SET #exit-messy        "\n\nSFX konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
  57. ))
  58.  
  59. ; check kick version ----------------------------------------------------------------------------------------
  60.  
  61. (if (< (/ (getversion) 65536) 37)
  62.     (abort #bad-kick)
  63. )
  64.  
  65. ; los geht`s ------------------------------------------------------------------------------------------------
  66.  
  67. (MESSAGE #welcome-messy)
  68. (COMPLETE 0)
  69.  
  70. (SET @default-dest
  71.     (ASKDIR
  72.         (PROMPT #choose-dest)
  73.         (HELP #choose-dest-help)
  74.         (DEFAULT @default-dest)
  75.     )
  76. )
  77. (MESSAGE #dest-require)
  78.  
  79. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  80. (SET @default-dest (TACKON @default-dest "SFX"))
  81. (SET sfx-dest @default-dest)
  82. (IF (= (EXISTS sfx-dest) 0)
  83.     (MAKEDIR sfx-dest (INFOS))
  84. )
  85.  
  86. ; Fonts kopieren --------------------------------------------------------------------------------------------
  87. (COMPLETE 8)
  88. (COPYFILES
  89.     (PROMPT #copy-fonts)
  90.     (HELP #copy-help)
  91.     (SOURCE "Fonts/")
  92.     (DEST "FONTS:")
  93.     (ALL)
  94. )
  95.  
  96. ; Libs kopieren ---------------------------------------------------------------------------------------------
  97. (COMPLETE 12)
  98. (COPYLIB
  99.     (PROMPT #copy-libs)
  100.     (HELP #copy-help)
  101.     (SOURCE "Libs/amigaguide.library")
  102.     (DEST "LIBS:")
  103. )
  104.  
  105. ; Keyfile kopieren ------------------------------------------------------------------------------------------
  106. (COMPLETE 17)
  107. (SET sfxsub-dest "DEVS:keyfiles")
  108. (IF (= (EXISTS sfxsub-dest) 0)
  109.     (MAKEDIR sfx-dest (INFOS))
  110. )
  111. (IF (= (EXISTS "Keyfiles/SFX.key") 1)
  112.     (COPYFILES
  113.         (PROMPT #copy-keyfile)
  114.         (HELP #copy-help)
  115.         (SOURCE "Keyfiles/SFX.key")
  116.         (DEST "DEVS:keyfiles/")
  117.     )
  118. )
  119.  
  120. ; Synths ----------------------------------------------------------------------------------------------------
  121. (COMPLETE 20)
  122. (SET sfxsub-dest (TACKON sfx-dest "Synths"))
  123. (IF (= (EXISTS sfx-dest) 0)
  124.     (MAKEDIR sfxsub-dest (INFOS))
  125. )
  126. (COPYFILES
  127.     (PROMPT #copy-synths)
  128.     (HELP #copy-help)
  129.     (SOURCE "Synths/")
  130.     (DEST sfxsub-dest)
  131.     (ALL)
  132. )
  133.  
  134. ; Eqshapes --------------------------------------------------------------------------------------------------
  135. (COMPLETE 35)
  136. (SET sfxsub-dest (TACKON sfx-dest "Eqshps"))
  137. (IF (= (EXISTS sfx-dest) 0)
  138.     (MAKEDIR sfxsub-dest (INFOS))
  139. )
  140. (COPYFILES
  141.     (PROMPT #copy-eqshapes)
  142.     (HELP #copy-help)
  143.     (SOURCE "Eqshps/")
  144.     (DEST sfxsub-dest)
  145.     (ALL)
  146. )
  147.  
  148. ; Envelopes -------------------------------------------------------------------------------------------------
  149. (COMPLETE 40)
  150. (SET sfxsub-dest (TACKON sfx-dest "Envelopes"))
  151. (IF (= (EXISTS sfx-dest) 0)
  152.     (MAKEDIR sfxsub-dest (INFOS))
  153. )
  154. (COPYFILES
  155.     (PROMPT #copy-envelopes)
  156.     (HELP #copy-help)
  157.     (SOURCE "Envelopes/")
  158.     (DEST sfxsub-dest)
  159.     (ALL)
  160. )
  161.  
  162. ; ARexx-Scripte ---------------------------------------------------------------------------------------------
  163. (COMPLETE 50)
  164. (SET sfxsub-dest (TACKON sfx-dest "Rexx"))
  165. (COPYFILES
  166.     (PROMPT #copy-rexxscripts)
  167.     (HELP #copy-help)
  168.     (SOURCE "Rexx/")
  169.     (DEST sfxsub-dest)
  170.     (ALL)
  171. )
  172.  
  173. ; Guide -----------------------------------------------------------------------------------------------------
  174.  
  175. (SET sfxsub-dest (TACKON sfx-dest "Guides"))
  176. (IF (= (EXISTS sfx-dest) 0)
  177.     (MAKEDIR sfxsub-dest (INFOS))
  178. )
  179. (SET gver
  180.     (ASKCHOICE
  181.         (PROMPT #choose-lang)
  182.         (HELP -choose-lang-help)
  183.         (CHOICES
  184.             "english"
  185.             "german"
  186.         )
  187.         (DEFAULT 0)
  188.     )
  189. )
  190. (COMPLETE 60)
  191. (IF (= gver 0)
  192.     (COPYFILES
  193.         (PROMPT #copy-guides)
  194.         (HELP #copy-help)
  195.         (SOURCE "Guides_engl/")
  196.         (DEST sfxsub-dest)
  197.         (ALL)
  198.         (INFOS)
  199.     )
  200. )
  201. (IF (= gver 1)
  202.     (COPYFILES
  203.         (PROMPT #copy-guides)
  204.         (HELP #copy-help)
  205.         (SOURCE "Guides_dt/")
  206.         (DEST sfxsub-dest)
  207.         (ALL)
  208.         (INFOS)
  209.     )
  210. )
  211.  
  212. ; Versionsauswahl -------------------------------------------------------------------------------------------
  213. (COMPLETE 80)
  214. (SET pver
  215.     (ASKCHOICE
  216.         (PROMPT #choose-pver)
  217.         (HELP -choose-pver-help)
  218.         (CHOICES
  219.             "68000"
  220.             "68030-881"
  221.         )
  222.         (DEFAULT 0)
  223.     )
  224. )
  225. (IF (= pver 0)
  226.     (COPYFILES
  227.         (PROMPT #copy-executable)
  228.         (HELP #copy-help)
  229.         (SOURCE "SFX/sfx.68000")
  230.         (DEST sfx-dest)
  231.         (NEWNAME "SoundFX")
  232.     )
  233. )
  234. (IF (= pver 1)
  235.     (COPYFILES
  236.         (PROMPT #copy-executable)
  237.         (HELP #copy-help)
  238.         (SOURCE "SFX/sfx.68030-881")
  239.         (DEST sfx-dest)
  240.         (NEWNAME "SoundFX")
  241.     )
  242. )
  243. (COPYFILES
  244.     (SOURCE "SFX/SoundFX.info")
  245.     (DEST sfx-dest)
  246. )
  247.  
  248. ; Fertig ----------------------------------------------------------------------------------------------------
  249. (COMPLETE 99)
  250. (MESSAGE #exit-messy)
  251. (COMPLETE 100)
  252.  
  253. (EXIT (QUIET))
  254. ; Install-SFX Ende ------------------------------------------------------------------------------------------
  255.